home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTRAN / 3017.ZIP / TMOUSE.FOR < prev    next >
Text File  |  1988-10-22  |  410b  |  25 lines
  1.       PROGRAM TMOUSE
  2. C
  3. C     TO TEST MOUSE DRIVER
  4. C     OLYMPIC SOFTWARE  --  9/15/88
  5. C
  6.       EXTERNAL MOUSDR
  7.       INTEGER*2 IAR(4)
  8. C
  9.   1   WRITE(*,10)
  10.  10   FORMAT('  INPUT AX,BX,CX,DX : ',$)
  11.       READ(*,*)IAR(1),IAR(2),IAR(3),IAR(4)
  12. C
  13.       DO 30 J=1,50
  14.       CALL MOUSDR(IAR)
  15.       WRITE(*,20)(IAR(I),I=1,4)
  16.  20   FORMAT(4I6)
  17.  30   CONTINUE
  18.       GOTO 1
  19. C
  20.       STOP
  21.       END
  22.  
  23.  
  24.  
  25.